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i 1 001 MODULE BASSCTRLC ( ! Control handler 

; § Oe jOENT = *2-005° ' File: BASCTRLC.B 2 Edit: “DL.2005 

Py BEGIN 3 
13 5 005 1! 

; § 68 ; gia ca a a cle a aa i a Ta Lc nce ee alt in 
i. % 0008 1 i* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 5 
| Dea . 009 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. « 
3 19 Biy : - ALL RIGHTS RESERVED. * 
3 : » 

3 \¢ Oi¢ 1 !* THIS SOFTWARE Js FURNISHED UNDER A i Scense AND MAY BE USED AND COPIED * 

i s 13 1 !* ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE * 

a 014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TWARE OR ANY OTHER * 

HY 15 0015 1 !* COPIES THEREOF a Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ls 18 0016 1 !* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i SEA : ° TRANSFERRED. % 

3 'e e 

Tok 0019 1 !* THE reerat ies IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $3 itd : ‘* CORPORATION. * 

; '® e 

3 : $038 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

H : it : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; ; * 

; 0026 1 !* . 

; $s Boss : Seagate adiabatic ana ink nanan tna a ac leant 

> 29 0009 1 
; 0 0030 1 !++ 
: , bos : FACILITY: VAX=11 BASIC Miscellaneous Support 
: 33 $088 1 i ABSTRACT: 

; 4 0034 1! 

7. 0035 1! This module contains routines for enabling, disabling, and 

5 38 it] : handling Control C interrupts. 

; 36 0038 ENVIRONMENT: VAX=11 User Mode 

: 40 0040 AUTHOR: John Sauter, CREATION DATE: 19-FEB-1979 

> 42 0042 1 | MODIFIED BY: 

3s 65 0043 1: 

3; | (46 0044 1 | 1-001 - Original. JBS 19-FEB-1979 

a >) 0045 1! 1-002 - née e oenelor to the AST routine to catch UNWINDS, makin 

; 46 0046 1: ey dismiss the AST properly. JBS 20-FEB-1979 

a> Or 0047 1 ! 1-003 - add "GASSSC TALE. INIT, for the RUN command. JBS 22-JUN-1979 

; 68 0048 1 ! 1-004 - If a control C’trap goes off but the user was not enabled, 

; «649 0049 1! signal an INFO message to the a _texgoere monitor, who may 

; 0050 1! wish to continue. JBS 14-SEP 
re a 0051 1 | 1-005 = Use SYSSINPUT = than TT. JBS 20-SEP-1979 

3 26 0036 1 ' 1-006 = Call SYS$CLRAST to clear the AST, rather than using CHMK. 

a 053 1! JBS 27-NOV-1979 

; | «(54 054 1 ! 1-007 = Do tr asl ot ions of SYSSINPUT until it fails to translate. 

aie 055 1! JBS L-1980 

, % 0056 1 ! 1-008 - Clear oe Ast immediately im CONTROL_C. PLL 7-Aug-81 

[.. 0057 1 | 1-009 = Use LIBSGET_EF to obtain event flags for $0]0Ws. PLL 30-Nov-81 


10 
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is 8 O08 1 ! 1-010 = Don't turn off control c's when a control c AST goes off. 

3 1! hey hould be turned off only by the RCTRLC function. PLL 22-Jun-82 
is @ 0 1 | 1-071 = Edit 010 should also have checked RUN_CMD in CONTROL_C, so that 

is 61 ae Fe ctric’s are always gested in immediate mode from the VMS point of 
is 6 ¢ 1! view. PLL 6-Jul-19 

is 6 065 1 ! 1-012 = make ERN and ERL ava Laple when user hits CTRL/C from inside 

13 = 66 066 1! the environment. MDL =Jul-1982 

is 6 065 1 ! 2-001 = rewrite to use permanent AST enabling. Also allow CTRLC function 

: 68 B98 1! to work when program runs from a command procedure. MDL 28-Sep-1983 
FE 6 067 1 ! 2-002 = don't use SYSSCLRAST = it causes us to never return to where we 

; 068 1! were before the AST occurred. MDL 4-Jan-1984 

3 9 9 1! 2-003 - check if 1/0 in progress before si petting at AST level, and simply 
3 0 070 1! return if so. add new routine BASSSSIGNAL_CTRLC for use from REC 
cr 0071 1! level 1/0 routines. Coordinated change with BASSSREC_PROC 1-093. 

2 0072 1! MDL 12-Mar-1984 

ee 0075 1 ! 2-004 = RMS will only return RMS$_CONTROLC for an interrupted terminal 1/0, 
3; «66 0074 1! therefore we must signal jn all other cases. MDL 3-Apr-1984 

: eg Ba : 2-005 = only signal if we're really enabled. MDL 10-Apr-1984 

Oa: 4 0077 1 

> fe 0078 1 '<BLF/PAGE> 


| # 10 
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3 0 1! 

\3 1 1 ! SWITCHES: 

Hae O82 1. 

13 BS : : : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
\3 89 OB 1 | LINKAGES 

3; 688 G08? 1! 

; 89 0088 1! NONE 

; 89 1! 

.- 1 ! TABLE OF CONTENTS: 

3 4 091 1! 

2 Bo38 1 

+. SS 93 1 FORWARD ROUTINE 

: 0094 1 BASSCTRLC ! Enable Control C interrupts 

; 0095 1 BASSRCTRLC, ! Disable Control C interrupts 

3 WW 0096 1 BASSSCTRLC_INIT : NOVALUE, ' Set up for RUN command 

; 98 0097 1 BASSS$SIGNAC_CTRLC : NOVALUE, ! Signal the CTRL/C condition 

; 99 0098 1 CONTROL_C : NOVALUE; ! Handle a Control C interrupt 

; 100 0099 1 

; 101 0100 1! 

3 136 0101 1 ! INCLUDE FILES: 

; 10 0102 1! 

; 104 0103 #1 

3 yc Hod ' REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 

3 109 $444 } REQUIRE *RTLIN:BASFRAME'; ! BASIC frame definitions 

3 1%} Bees : REQUIRE ‘RTLML:OTSLUB'; ! LUB definitions 

3 BY B26? : REQUIRE ‘RTLIN:OTSLNK'; ! Linkage definitions 

3 113 0975 1 LIBRARY ‘RTLSTARLE'; ! Define system symbols 

3 (116 0976 1 

3 115 0977 1! 

3 6116 0978 1 ! MACROS: 

3; (117 0979 1! 

3; «118 0980 1! NONE 

3; #6119 0981 1! 

; 120 0982 1 ! EQUATED SYMBOLS: 

s ve 0983 1! 

3 \$¢ 984 1! NONE 

; i #4 1! 

: 126 3988 1 ! PSECTS: 

3 12 0987 1! ; 

3 136 +434 : DECLARE _PSECTS (BAS); ! Declare psects for BAS$ facility 
: 128 0990 1 ! OWN STORAGE: 

3 94 991 1! 

3; 130 O36 1 

3; 6131 344 1 OWN : ; : 
3 15 994 1 TT_ CHAN : UNSIGNED WORD peat (WORD (0)), ! The channel the terminal is assigned on 
3; «13 0995 1 RUN_CMD : BYTE INITIAL (BYTE (0)) ' Set if we are in the RUN command 
3 (134 44 1 CC_REALLY ENABLED : BYTE INITIAL (BYTE (0)),! Set if the user has control C traps enabled 
: 135 997 1 CCTENABLED_USER_PT_OF VIEW: BYTE INITIAL (BYTE (0)); 

: 136 0998 1 ‘Set if the user thinks he has ctrl/c enabled 


c--— 


r 
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| 
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EXTERNAL REFERENCES: 


-o 
eS 


a ee ee ed ed ed ed ed wd 


ate y ROUT INE 
LIBSGET EF 


allocate an event flag 
LIBSFREE EF, ag 


deallocate an event f 


! 
! 
00 LIBSSIGNAL ! Signal a condition 
B28 LIBSSTOP : NOVALUE, ! Signal a fatal error 
00 LIBSMATCH_COND, ! Match condition codes 
4 BAS$$CB_POSH : JSB_CB_PUSH NOVALUE, ' Load register CC 
1 BASSSCB_ POP : JSB_CB_POP NOVALUE, ' Release vog* eter ccB 
01 BASSSLINE, ' get current Line 
01 BASSSMODULE, ! get current module name 
4 BASSHANDLER; ! just need address of this 
01 EXTERNAL 
01 BASST_ERN : BLOCK (8, BYTE] , ! descriptor for module name 
01 BASSL_ERR , ' current error code 
01 BASSL_ERL , ! Line number of error 
0 OTSS$$V_IOINPROG : VOLATILE BITVECTOR; ! channels w/ 1/0 in progress 


'¢ 
The following are the error codes used in this module. 


WENO OONOA UE WN 0 OONAUS WN OOO 


MIMIMOPOTOToTN 


EXTERNAL LITERAL 
BASSK_PROC__TRA, 
BASS_PROC_"TRA; ! Programmable “C trap 


Se Se Se Se Se oe Se Oe Oe Os Se Se Gs SF SS Ss Ss Se Se Ss Ss Gs Se Se Se SH Se Se Ss Oe Se ee 


i ee a ee ed ed ed 
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F 179 1p 1 } GLOBAL ROUTINE BASSCTRLC = ! Enable Control C interrupts 
3 176 1 j 1 tee 

is 0 : : ' FUNCTIONAL DESCRIPTION: 
E 175 1 $ 1! Enable Control C traps, so that a Control €C will cause the 
E 178 + : : user's program to take an ON ERROR GOTO branch. 
is 178 10 § 1 ! FORMAL PARAMETERS: 

3; 179 1040 1! 

; 180 1041 1! NONE 

: 131 1 rk 1! 

iu 3 ; 10463 1! IMPLICIT INPUTS: 

3; 18 1044 1! 

3; «(184 ok 1! NONE 

3; «6185 1 “6 1! 

8 196 104 1 ! IMPLICIT OUTPUTS: 

; «(18 1048 1! 

3; «6188 1049 1! NONE 

: 189 1050 1! 

; 190 1051 1 ! ROUTINE VALUE: 

3; «6191 1926 1! 

3 136 192 ee Always returns zero. 

; («19 1054 1! 

3 194 1055 1 ! SIDE EFFECTS: 

: 195 1056 1! : 

; 196 1057 1! Leaves Control C traps enabled if the process has a terminal. 
3; 197 1058 1! 

; 198 1059 1 !e= 

3; 6199 1060 1 

: 200 1061 BEGIN 

3 $3) 1oo6 

3 4 106 + : Ee 
3 $e He: 2 : If CTRL/C reception is not currently enabled, begin some investigation. 
; $08 1066 IF ( NOT .CC_REALLY_ENABLED ) 

3 $96 1067 2 

; 207 1068 BEGIN 

; 208 1069 

; 209 1070 LOCAL 

3 10 1071 ASSIGN_RESULT, 

3 ei 1976 Q10 RE , 

: \¢ 107 GETBVI_RESULT, 

: 21 1074 GETJPI-RESULT, 

: 216 1075 STATUS, 

: 15 1978 

3 \¢ tA EVENT_FLAG, 

$ 13 H+ 24 CONTROL_CHARS : VECTOR C2, LONG) INITIAL (0, 8), 

3 420 193) DEVICE_CLASS : PUET TAL (OD. 

3; 221 10 ¢ DEVNAM_DESC : BLOCK (8, BYTE) 

; 4 10 DVI_RETURN_LENGTH :_INITIAL(OS, 

3 1084 DVI_LITEMS : VECTOR C4, LONG) INITIAL ( ((DVIS_DEVCLASS*16) OR 4), 
: 226 1085 DEVICE CLAS 

3 225 1086 DVI_RETURN_LENGTH, 
; 226 108 0); 


rams 
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RM 
1. 
| 


INAL_NAME : VECTOR £236 BYTE). 
RETURN. LENGTH : INITIAL 
ITEMS = VECTOR (4, LONG] IMITIAL ( {iitlmn ne OR 256), 


arte RETURN. LENGTH, 


TE 
JP 
JP 


'¢ 
} see if SYSSINPUT is a terminal device. 


DEVNAM_DESC [CDSC$W beneryd = senencousl *SYSSINPUT"); 


STATUS = LIBSFREE_EF (EVENT_FLAG); 
IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 


'¢ 
! If SYSSINPUT is indeed a terminai device, go ahead and enable CTRL/C 
trapping to it. 


IF .DEVICE_CLASS EQL DCS$_TERM 

THEN 

” BEGIN 

assign a channel to the terminal, if one doesn't already exist. 
IF .TT_CHAN EQLU 0 

THEN 


BEGIN 

ASSIGN_RESULT = SASSIGN (DEVNAM = DEVNAM_DESC, CHAN = TT_CHAN); 
IF ( NOT .ASSIGN_RESULT) 

La LIBSSTOP ( ( ASSIGN_RESULT); 

'¢ 

issue the Q10 enabling CTRL/C reception. 


STATUS = LIBSGET_EF (EVENT FLAG); 
IF (NOT .STATUS)~ THEN LIBSSTOP (.STATUS); 


QIO_RESULT = $0]0W yo Be ie a 


( 
DEVNAM_DESC [DSCSB_DTY 43) = DSCSK_DTYPE_T; 
DEVNAM_DESC [DSC$B_CLASS] = DSC$k- CLASS $; 
DEVNAM-DESC CDSCSA_POINTER} = TERMINAL_RAME [0]; 
CHSMOVE (ZCHARCOUNT (*SYSSINPUT'), CHSPTR CuPLii (*SYSSINPUT')), TERMINAL_NAME [0]); 

STATUS = LIBSGET_EF (EVENT FLAG); 
IF (NOT STATUS)” THEN LIBSSTOP (.STATUS); 
GETDVI_RESULT = SGETDVI (EFN = .EVENT FLAG, 

DEVNAM = peas DESC, 

ITMLST = DVI_ITEMS ); 
IF ( (NOT .GETDVI_RESULT) OR .DVI_RETURN_LENGTH EQL 0 ) 
THEN LIBSSTOP (.GETDVI_RESULT); 
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‘+ 
} otherwise, see if the process owns a terminal at all. 
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ibeSe -1984 00:09: AX-11 Bliss-32 V4.0-74 Pa 7 
aaa 1 90:97:26 EBASRTL SRe BASCTRLC.832;1 = (3) 
5 FUNC = (10$_SETMODE OR IOSM_OUTBAND OR IO$M_TT_ABORT), 
§ Pi = CONTROC_C, 
P2 = CONTROL_CHARS); 
§ IF ( NOT .QIO_RESULT) 
9 THEN LIBSSTOP™(.Q10_RESULT); 
¢ STATUS = LIBSFREE_EF (EVENT_FLAG); 
; IF (NOT .STATUS) THEN LIBSSTOP (.S$TATUS); 
5 '¢ 
$ indicate CTRL/C recption is now enabled. 
8 ; CC_REALLY_ENABLED = 1; 
g ENB 
0 
1 ELSE 
§ BEGIN 
4 
5 


STATUS = LIBSGET_EF (EVENT_FLAG); 

IF (NOT .STATUS) THEN LIBSSTOP (:. STATUS); 

GETJPI_RESULT = SGETJPI (EFN = .EVENT_FLAG, 
ITMLST = JPITITEMS ); 

IF (NOT .GETJPI_RESULT) 

THEN LIBSSTOP (7GETJPI_RESULT); 

STATUS = LIBSFREE_EF (EVENT FLAG); 

IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 


'¢ 
' if so, enable CTRL/C reception to that terminal. Otherwise, we cannot 
enable CTRL/C reception. 


IF .JPI_RETURN_LENGTH NEQ 0 
THEN 


BEGIN 
DEVNAM_DESC COSC$W_LENGTH) = CHSFIND_CH ( 256, 
CHSPTR (TERMINAL NAME), 


CHSPTR (TERMINAL _NAME) ; 
DEVNAM_DESC [DSCS$B_DTYPE] = DSC$K_DTYPE_T; 
DEVNAM“DESC CDSC$B-CLASS] = DSCSK~CLASS~S: 
DEVNAM~DESC CDSCSA~POINTER] = TERMINAL_NAME (0); 


'¢ 
: assign a channel to the terminal, if one doesn't already exist. 


IF .TT_CHAN EQLU 0 
THEN 


BEGIN 
ASSIGN_RESULT = SASSIGN (DEVNAM = DEVNAM_DESC, CHAN = TT_CHAN); 
IF ( NOT .ASSIGN_RESULT) 


—— 


gee iesbeoc}age Q0:02:25  YMGHT Siesadz ye 


¥ 1 THEN LIBSSTOP (.ASSIGN_RESULT); 
3 END; 
3 4 te 
5 i issue the Q10 enabling CTRL/C reception. 
§ STATUS = LIBSGET_EF (EVENT_FLAG); 
rt IF (NOT .STATUS)” THEN LIBSSTOP (.STATUS); 
29 4 QIO_RESULT = $Q10W cern PY o EVENT FLAG. 
= 
26 Pp FUNC = (108 SETMODE OR 1OSM_OUTBAND OR IOSM_TT_ABORT), 
5 Pp P1 = CONTROC_C 
2 P2 = CONTROL- ~CiiaRS) ; 
28 IF ( NOT .QIO_RESULT) . 
22 THEN LIBSSTOP~(.QI0_RESULT); 
59 STATUS = LIBSFREE_EF (EVENT F 
60 IF (NOT .STATUS) THEN EBSSTOP. r  iratus); 
6 
e§ 
64 


'¢ 

indicate CTRL/C recption is now enabled. 
; CC_REALLY_ENABLED = 

ENB; 


END; !' Else 
END; ! If not CC_REALLY_ENABLED 


le 
i indicate the CTRL/C reception is now enabled from the point of view 
i of the user. 


CC_ENABLED_USER_PT_OF_VIEW = 1; 
'¢ 
the CTRLC function always returns zero. 


RETURN (0); 
END; 


Se Se Se Be Se Ge Se Se Ge FH Se Se Se Ge Se Se Se Se Ge Ss Ge Se Se Se Se Se Se Ss Ge Ge Se Se Se Se Se Se Ge Se Se Se Se ee 
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end of BASSCTRLC 
-TITLE BASSCTRLC 

-IDENT \2-005\ 

-PSECT _BASSDATA,NOEXE, PIC,2 
00000 TT_CHAN:.WORD 
00 BA OnS RUN CMD: .BYTE 
00 00005 CC REALLY ENABLED: 


E 
00 00004 CC_ENABLED USER_PT_OF_VIEW: 
-BYTE 


FOO | 


Svot 


-PSECT _BASSCODE.NOWRT, SHR, PIC.2 


i o 
So 
So 
oO 


ooo - — = = —————— 
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| 040004 00000 P.AAA: LONG 262148 ; 
| 000000 000 “CONG : 
| 00000000 99000000 99008 “ONG g : 

1D01 0010 P.AAB: <LONG 52232448 ; 
| 90000000 09909009 90018 i ae ; 
| 00 00 00 56 SS 50 GE So on 53 59 53 00020 PLAAC: | “ASCSY NE YSSINPUT\<0><0><0> ; 


.EXTRN LIBSGET_EF, LIBSFREE_EF 
~EXTRN LIBSSIGNAL, LIBSSTOP 
“EXTRN LIBS$MATCH_ COND BASSSCB_PUSH 


; L 
BASSHANDLER 

TEXTRN BASST_ERN, BASSL_ERR 

EXTRN BASSL ERE OTS$$V_IOINPROG 


BASSK~PROC__TRA 
-EXTRN BAS$_PROC_ “TRA, SYSSGETDVI 
“EXTRN SYSS$ASSIGN> SYS$Q10W 
SEXTRN SYSSGETJPI 


OFFC 00000 ENTRY BASSCTRLC, Save R2,R3,R4,R5,R6,R7,R8,R9,- = 1031 
5B 000000006 00 9€ 00002 MOVAB SYS$Q10W, R11 : 
5A 000000006 00 9€ 00009 MOVAB SYS$ASSIGN, R10 : 
59 000000006 00 9€ 00010 MOVAB LIBSFREE EF, R9 : 
58 000000006 00 9€E 00017 MOVAB LIBSGET_EF, R8 ; 
57 00000000' EF 9E OOO01E MOVAB TT_CHAN; R? : 
56 000000006 00 9€ 00025 MOVAB LIBSSTOP, R6 : 
5E FECO CE 9E 0002C MOVAB -320(SP). SP : 
03 03 A? €9 00031 BLBC CC_REALLY_ENABLED, 1$ > 1066 
0188 31 00035 BRW 21 3 
F8 AD 04 00038 1$: CLRL _ CONTROL_CHARS + 1068 
FC AD 08 0 00038 MOVL #8, CONTROL_CHARS+4 3 | 
6E 7C 0003F CLRQ_  DEVICE_CLASS : | 
EO AD 8F OA 19 28 00041 MOVC3 #16, PTAAA, DVI_ITEMS : 1087 
E46 AD 6€ 9E 00047 OVAB DEVICE CLASS, DVI_ITEMS+4 : 1068 
£8 AD 04 AE 9E 00048 MOVAB DVI_RETURN_LENGTH, DVI_ITEMS+8 : 
08 AE 04 00050 LRL_ JPITRETURNLENGTH : 1087 | 
10 AE 8D AF 10 28 00053 MOVC3 #167 P.AAB; JPI_ITEMS + 1094 
14 AE 20 AE 9E 90059 MOVAB TERMINAL_NAME, JPI_ITEMS+4 : 1087 
18 AE 08 AE 9E 0056 MOVAB PI RETURN_LENGTH, JPI_ITEMS+8 : 
FO AD 010E0009 8F DO 0006 MOVL #17694729, “DEVNAM DES : 1099 
f4 AD 20 AE 4 00068 MOV TERMINAL NAME, DEQNAM DESC+4 3 110@ 
20 AE 80 AF 0 é 0007 MOVC3) #9, P.AAC, TERMINAL_NAME + 110 
Oc AE 9F 00076 PUSHAB EVENT FLAG : 1105 
6 01 FB 00079 CALLS #1, LIBSGET_EF : 
5 50 D 9907¢ MOVL RO. STATUS : 
05 3g E8 0007F BLBS STATUS, 2$ : 1106 
52 DD 900 2 PUSHL STAT ; 
66 01 FB 00084 CALLS #1, LIBSSTOP : 
7E 7C 00087 2% CLRO 30. = (§P) : 1110 
7E 7¢ 00089 CLRQ = = (SP) : 
EO AD 9F 000 PUSHAB DVI_ITEMS : 
| FO AD 9 008E PUSHAB DEVRAM_DESC : 
7E D4 0009 CLRL ~ 3 
28 AE DD 00093 PUSHL EVENT_FLAG : 
i 
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7E 04 0138 CLRL = (SP) ; 
1¢ «AE OOF 00130 PUSHAB JPI_ITEMS : 
7E 7¢ 0014 CLRQ 0s = (SP) : 
24 AE DD 0014 SHL y NT a : 
000000006 G0 FB 014 CALLS 4&7, SYS$GETUP : 
5 0 E gi4e BLBS  GETJPI_RESULT, 128 + 117 
DD OO14F PUSHL GETJPI-RESUL : 117 
66 01 FB 00151 CALLS #1, LI ; 
0c AE oF 0194 12$:  PUSHAB EVENT_FLAG + 1175 
$9 9 FB 00157 CALLS #1, LIBSFREE_EF : 
2 D0 015A MOVL RO, STATU : 
0 3 E 0190 BLBS STATUS, 13$ + 1176 
| DD 00160 PUSHL ATUS : 
| rx. 01 FB Gi6¢ CALLS #1, LIBSSTOP : 
08 AE D5 00165 13$:  TSTL JP{_RETURN_LENGTH > 1182 
03 12 00168 BNEG 14$ : 
0086 31 016A BRW 21$ : 
20 AE 0100 =8F 00 3A 0016D 148: LOCC #0, #256, TERMINAL_NAME + 1185 
02 12 00174 BNEQ 156 : 
51 04 00176 CLRL RT : 
50 20 Ar H 00178 15$: | MOVAB  TERMINAL_NAME, RO : 1188 
FO AD 51 50 A’ 0017¢ SUBW3 RO, R1, DEVNAM_DESC F 
F2 AD 010 8F B80 00181 MOVW #270, DEVNAM_DESC+2 > 1189 
F4 OAD 20 AE 3 00187 MOVAB TERMINAL_NAME, DEVNAM_DESC+4 > 1191 
67 B85 0018C TSTW TT_CHAN + 1196 
15 12 0018€ BNEQ 16 : 
7E 7C 00190 CLRQ = = (SP) + 1199 
57 DD 00192 PUSHL 7 : 
FO AD 9F 00194 PUSHAB DEVNAM_DESC : 
6A 04 FB 00197 CALLS #4, SYSSASS 3 
54 50 00 0019A MOVL RO, ASSIGN RESULT : 
05 54 £8 0019D BLBS § ASSIGN_RESOLT, 16$ : 1201 
| 54 DD 001A0 PUSHL ASSIGN7RESU > 1202 
66 01 FB OO1A2 CALLS LIBSSTO F 
OC AE 9F O01A5 16%:  PUSHAB EVENT_FLAG + 1208 
68 01 FB 001A8 CALLS #1, LYBSGE1_EF 3 
52 50 DO 001AB MOVL RO, STATU F 
05 2¢ E8 OO1AE BLBS STATUS, 17$ : 1209 
52 DD 00181 PUSHL STATUS ; 
66 01 FB 00183 CALLS #1, LIBSSTOP : 
7E 7C 00186 178: CLRO. 0s = (§P) + 1215 
7E 7C€ 00188 CLRQ = (SP) ; 
F8 AD OF OO1BA PUSHAB CONTROL_CHARS ; 
0000v CF 9 0018p PUSHAB CONTROL—C F 
—€ 7C 001C1 CLRQ = =( SP) : 
7E 04 001C3 CLRL = = (SP) : 
7E 1423 BF 3C 001C5 MOVZWL #5155, =(SP) F 
7E 67 3C OOICA MOVZ2WL TT CHAN, =(SP) ; 
38 «AE «DD 001CD PUSHL EVENT FLAG ; 
6 OC FB 00100 CALLS #12, SYS$Q10W ; 
5 D 90105 OVL RO, Q10 RESULT : 
05 E8 00106 LBS  QI0_RESOLT, 18$ : 1217 
DD 00109 PUSHL QJO"RESULT + 1218 
66 01 FB 001DB CALLS #1, LIBS$STOP ; 
OC AE 9F OO1DE 18%:  PUSHAB EVENT _FLAG > 1220 
69 gi FB OO1E1 CALLS #1, LIBSFREE_EF ; 
52 0 DO 001E4 MOVL RO. STATUS : 


D 11 
— BASSCTRLC 16-Sep- AX-11 Bliss-32 V4.0-74 
atts l4- afep- 198 90: gee BASRTL.SRC JBASCTRLC.B32;1 
05 2 E8 OO1E7 BLBS STATUS, 20$ 
DD HE 19% PUSHL STATUS 
66 4 1EC CALLS #1, LIBSSTOP 
03 A 1 90 OO1EF 208: MOVB "i, Ec _REALLY_ ENABLED 
06 A? g 90 OO1F3 21$: MOVB #1, CCLENABLEB_USER_PT_OF_VIEW 
0 04 OO1F7 CLAL RO’ 
04 O01F9 RET 
r Routine Size: 506 bytes, Routine Base: _BASSCODE + 002C 


; 383 1244 1 


7% 
vow 
oo 


9° 138% 90: 99:¢ ee Bliss-32 V4.0-74 


gem ) 
I. 


-Sep-19 BASRTL.SRCJBASCTRLC.832;1 
3 «385 } $3 : GLOBAL ROUTINE BASSRCTRLC = ! Disable Control C interrupts 
3 8 1247 1 !44 
| 3 4 : ; : FUNCTIONAL DESCRIPTION: 
li 90 1250 1! Disable Control C traps, so that a Control C will cause the 
E 91 1 ; user's program to stop, as usual. 
13 $9! 1588 | | FORMAL PARAMETERS: 
38 1588} i NONE 
13 1256 1: 
; 3 1 28 1 ! IMPLICIT INPUTS: 
; 598 1258 1! 
; 399 1259 1! NONE 
: 400 1260 1! 
; 401 1261 1 ! IMPLICIT OUTPUTS: 
; 40 1262 1! 
: to 154 : _— 
> 405 1568 1! ROUTINE VALUE: 
; 06 1508 1 ! COMPLETION CODES: 
3; 407 1267 1! 
; 408 1268 1! Always returns zero. 
: 409 1269 1! 
; 410 15/0 1 ! SIDE EFFECTS: 
: 411 1e71 1! : 
3 $i¢ 1s78 1! Leaves Control C traps disabled. 
: ref 157% 
; tie 1596 } | BEGIN 
: 1378 3 LocaL 
3 419 1279 3 EVENT_FLAG, 
: 420 1580 STATUS, 
3 63 1283 § Q10_RESULT; 
: 42 128 ‘+ 
3: 424 1284 ' Only turn CTRL/C reception off if it is currently on, and we're NOT in 
: 425 1285 ! the environment (RUN_CMD). CTRL/C reception should always be enabled 
; $$8 1686 (from the point of view of the user) when running in the environment. 
: 428 1288 2 
: 429 1589 g IF ((.TT_CHAN NEQU 0) AND ( .CC_REALLY_ENABLED )) 
: 430 1sny THEN 
| 3 $3) ! 4. a BEGIN 
3 135 1398 ‘ If we are in the RUN command (where control Cs should always remain 
; rt 1395 enabled) or if control Cs are not enabled, don't issue the Q10. 
: 436 129 
3 657 1599 4 IF ( NOT .RUN_CMD) 
: 438 1298 3 
; 439 1299 4 BEGIN 
3 440 1500 4 
> 641 1301 4 STATUS = LIBSGET_EF (EVENT_FLAG); 


ns 
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16-Sep-1984 
: t 99: ge: BASRTL.SRCJBASCTRLC. b3 31 


14-Sep-1984 
IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 


14 


‘ We disable reception of CTRL/C ASTs by issuing a SCANCEL on the channel. 
QIO_RESULT = SCANCEL ( CHAN = .TT_CHAN); 
IF ( NOT .QJO_RESULT) THEN LIBSSTOP (.QIO_RESULT); 


STATUS = LIBSFREE_EF (EVENT_FLAG); 
IF (NOT .STATUS) THEN LIBSSTOP (.STATUS); 


CC_REALLY_ENABLED = 0; 
END; 


14 
! _Indicate that the user does not want control C traps. 


END; 
CC_LENABLED_USER_PT_OF_VIEW = 0; 


RETURN (0); 
END; ! end of BASSRCTRLC 


-EXTRN SYSSCANCEL 


001¢ 00000 .ENTRY BASSRCTRLC, Save R2,R3,R4 
54 000000006 00 9E 00002 MOVAB LIBS$STOP, R4 
53 00000000' EF 9 90009 MOVAB TT_CHAN, R3 
SE » << Bai SUBL2 a4, SP 
63 85 0001 TSTW = TT_CHAN 
45 13 00015 BEQL 4$ 
41 03 A3 €9 00017 BLBC ry REALLY_ENABLED, 4$ 
3D 02 A’ €8 0001B BLBS RUN_CMD, &$ 
SE DD OOOTF PUSHL SP 
000000006 00 01 FB 9021 CALLS #1, LIBSGET _EF 
52 50 00 00028 MOVL 0; STATUS 
05 3g E8 00028 LBS STATUS, % 
5 DD 0002E PUSHL STATUS 
64 01 FB 00030 CALLS #1, LISSSTOP 
7E 63 3C 00033 1$: MOVZWL TT_CHAN, (SP) 
000000006 00 01 FB 000 CALLS #17 SYS$CANCEL 
05 50 €8 00030 BLBS attire 2$ 
50 DD 00040 PUSHL  QIO"RESULT 
64 01 FB 0004¢ CALLS #1,” TiassToP 
5E 0D Bone 23: PUSHL SP 
000000006 00 01 FB 00047 CALLS #1, L IBSFREE _EF 
52 50 D O04 MOVL RO, STA Tys 
05 2g E8 0005 BLBS er aTOS. 
5 DD 00054 PUSHL STATUS 
64 01 FB 00056 CALLS #1, LIBSSTOP 
03 a3 94 00059 3$: CLRB CC "REALLY ENABLED 
04 A 94 0005SC 4$: CLRB cc “ENABLED _USER_PT_OF _VIEW 
50 04 0005F CLRL = RO™ 


Pete Se Se Se Se Ge Se Se Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Se 
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04 00061 RET : 1325 
; Routine Size: 98 bytes, Routine Base: _BASSCODE + 0226 


haben 
P 
| 
; 466 1326 1 
| 


H 11 
‘Boos Ve-Sep-198e Wiise:e8 — EBASATLoSmeSeASCIRCC 859; 
| . 4 


3 re } 7 ! GLOBAL ROUTINE BASSSCTRLC_INIT : NOVALUE = ! Set up for RUN command 
34 0 1359 1 14s 
3 ? 1 ? ! FUNCTIONAL DESCRIPTION: 
> . 
'3 «47 1 é 2 Set up for the RUN environment. Since this image is to run under the RUN 
(3 474 1 Bz command, control C traps are always enabled, from the point of view of 
13 675 1334 1! VMS. If one goes off when the user has not enabled for control C traps, 
3 47 1335 1! the user is not allowed to intercept the signal (because of its severity) 
3 res : : : and the keyboard monitor gets it instead. 
479 1 1 ' FORMAL PARAMETERS: 
oe oe 
: 48 1341 1 | 
; 48 1 $s 1 ! IMPLICIT INPUTS: 
; 484 1345 1! 
ioe io 
> 487 1346 1 | IMPLICIT OUTPUTS: 
: tb 1308 | | NONE 
: 490 1349 1! 
; 491 13550 1 ! ROUTINE VALUE: 
; 49 1351 1 ! COMPLETION CODES: 
3; 49 1352 1! 
: 494 1353 1! NONE 
3; 495 1354 1! 
; re | : 2? ’ } SIDE EFFECTS: 
; 498 1 7 1! Leaves Control C traps disabled from the user's point of view, but 
; 499 1328 7! enabled from VMS's point of view. 
BB 
; 308 ise 
3; 3 1306 BEGIN 
; 504 136 '¢ 
3 4 1368 : Make sure the S$ASSIGN and $Q10 have been done. 
; 307 1366 5s BASSCTRLC (); 
; 509 1308 i be that we are in the RUN environment. This will prevent the 
s 319 : +4 Control C enable from being turned off, from the point of view 
Py - Oo 7 
3 HE 1394 le 
: 3h 1398 Peedi 
; 212 1308 Turn control C enable off from the user's point of view. 
BH 1399 RETURNS 
; 519 1378 END; ! end of BASSSCTRLC_INIT 


am WEHeecHOHE QGSNR2F HIGAT SURGE ZS, Pome 
7 


ser + 00000 ENTRY nae erg INIT, Save nothing 3; 132 

FO9D=sCF 00 $0 000 CALLS #0, CTRLC 3 1366 
00000000" EF 4 9 4 MOVB CMD ; 137 
BC sAF 0 CALLS 50° RUD 3 1376 

Oe 8004 RET 3 1378 


|; Routine Size: 19 bytes, Routine Base: _BASSCODE + 0288 


520 1379 «1 


14-Sep-19 BASRTL.SRCJBASCTRLC.B32;1 (6) 
GLOBAL ROUTINE BASSSSIGNAL_CTRLC : NOVALUE = ! Signal CTRL/C 


‘ee 


FUNCTIONAL DESCRIPTION: 

Signals CTRL/C to the BASIC program. 
i FORMAL PARAMETERS: 

NONE 

i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
NONE 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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| 
_* 
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! ROUTINE VALUE: 
: COMPLETION CODES: 


: NONE 

i SIDE EFFECTS: 

Calls the user's code by Signaling. 

If the user is not enabled (which means that the program must 


be y te run under the RUN command) then the signal goes to 
the keyboard monitor, which may do a continue or an unwind. 


BEGIN 


LOCAL 
COND_VAL : BLOCK (4, BYTE, 
FMP > REF BLOCK CO,BYTE] FIELD (BSFSFCD), 
MOD_NAME_ADDR; 


BUILTIN 
FP; 


= 


'¢ : 
: if we're not really enabled, don't bother signalling. 


IF NOT .CC_REALLY_ENABLED 
RETURN; 


o 
uw 


'¢ 
Search for a BASIC major frame. 


FMP = .FP; 
Beatle ( (,FMP NEQ 0) AND (.FMP CBSFSA_HANDLER] NEQA BASSHANDLER) ) 


SIT ONTSSSSSF. 


OUSWN—OO0On 
Fe oY oY oY ot ot ot ot ot ot ot et et at te ee te te nh hd nd nd ab ah ad an adtah as ad aa ana 


WANN WIWIAINIRINININININININIDD 2 9 9 OOO MH OOOO OCOCOCOCOCSO OOO BY DARD As het try te tet | 


ee de ee ed ee a ee ee ee a ed a a a ae ca ce ee a a a ee ce ec a ce a ce ee ee ee es eee 
SUSUNLSSSVERRAS VS SSNS ARAW OSH Ue MR OOO We mmo WONAOULSWN—O 


Be Be Be Be Se Be Be Oe Se Se Se Ge Ge Se Be Se Ge Se Ge Ge Ge Fe Ge Se Se Se Se Se Ge Fe Se Se Ge Gs Se Se Se Ge Ss Ge Ge Se Ge Ge Se Ge Se Ge Ge Ge Se Se Se Seese 
PDP PUPV DVD PVP PVP DPUDUSDUDUDVSVUSUSUSUSUSI STIS SISSIES SSIS ST STS STII 

AN feat eal estat al al sh al ah sh al al al al oe eet ee ee et et oe oe oP ml, |, | 

on 

PRI DRIPOPINIPRININPIPONNGAINYINPINPONDNDNDNININIDID 0 ot tt tt a a 0 et 
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K 11 
‘Sg0s™™* VerSep-1984 11:54:68 — EBASRTLeSRESBASCYRLC-030; 1 
| 


ENTRY BASSSSIGNAL_CIRLC, Save R2,R3 


i; $79 1437 BEGIN 
13 80 1438 FMP = .FMP CBSFSA_SAVED_FP); 
3 1 1439 END; 
i3 B 1440 
3 $7 1441 + 
3 3 1228 ' get current error Line (ERL) and error module (ERN$), and define current 
g 44 144 ‘ error as ‘Programmable “C trap’’. 
3 § 1444 5 i- 
3 «(eT 1445 If (.FMP NEQ 0) 
; 588 ro78 THEN 
; 589 144 BEGIN " 
; re 1448 BASSL_ERL = BASSSLINE (.FMP); 
; 591 1449 MOD_NAME ADDR = BASS MODULE (FMP); 
; 236 1450 BASST_ERN CDSCSA_POINTER] = .MOD_NAME_ADDR + 1; 
; 1451 BASST_ERN CDSCS$W_LENGTH] = .BLOCR C.MOD_NAME_ADDR, 0, 0, 8, 0; 1, BYTE); 
> 594 O28 BASST_ERN $43 MEGS? = DSCSK_CLASS_S; 
; 595 145 BASST_ERN CDSCS$B_DTYPE] = DSCSK_DTYPE_T; 
; 596 1454 3 SSL-ERR = BASSR_PROC__TRA; 
3 397 1455 END; 
; 598 1456 
; 599 1457 '¢ 
: 600 1458 ! Now signet the proces tote BASIC condition for Control C. By default, the 
; 601 1459 ! severity for CTRL/C is ERROR. If the user is not enabled, signal information. 
; 60 1460 ! BASSHANDLER will gets control when the exception is signalled, and check the 
; 60 1461 ! severity. If it 1s ERROR, then the assumption is that the user has a handler 
; 604 1236 ' for CTRL/C and the user's handler is called. Otherwise (informational), 
3 eit 1087 control will be returned to KMON (environment) or DCL (run from DCL). 
; 607 1465 2 COND_VAL = BAS$_PROC__TRA; 
; 608 1466 ¢ 
3; 609 1467 IF ( NOT .CC_ENABLED_USER_PT OF _VIEW) 
3 oi? 1668 : THEN COND_VAC CSTSS$SV_SEVERITY] = STSSK_INFO; 
; ol¢ 1470 LIBSSIGNAL (.COND_VAL); 
s 61 1471 2 
3 614 1472 2 !4 
3; 615 1473 2! If we get to here, then the program was being run from the environment, the 
; 616 1474 § i user had no CTRL/C handler, and the keyboard monitor received the CONTINUE 
3 ou 10? command. Dismiss the AST (done automatically by returning). 
: 619 1477 $ RETURN; 
: 620 1478 1 END; ! end of BASSSSIGNAL_CTRLC 
| 0c 00000 
53 00000000G 00 43 00002 MOVAB BASST_ERN+4, 
69 00000000° fF E9 00009 BLBC CC_REALLY_ENABLED, 5$ 
52 D oO Boole MOVL FP, FMP 
12 13 00015 1$: BEQL 2 
50 000000006 00 9€ 00015 MOVAB BASSHANDLER, RO 
50 62 D1 OO0IC CMPL (FMP), RO 
06 13 OO001F BEQL 2 
52 oC A2 00 Boose MOVL 12(FMP), FMP 
EC 11 00025 BRB 1$ 
| 
| 
| 


ro —_ : — _ SS 


11 
| BASSCTRLC 1b- -Sep-1984 9:2 AX-11 Bliss-32 v4. Pa 20 
bets: 14- ~hep- 138 90: 9: £8 BASRTLe$ speieasctrie.6g B32;1 9 8) 
0027 2$: TSTL = EMP 3 1445 
; rf 009 9 BEQL «6s 3 : 
DD 00028 PUSHL FMP + 1448 
000000006 00 1 FB 0020 CALLS ae BASSSLINE : 
000000006 00 9 DO 000 MOVL RO, BASSL_ERL 3 
DD 00038 PUSHL + 1449 
000000006 0 01 FB 00030 CALLS BASSSMODULE : 
. 01 Ad 9E 00044 MOVA Tthoe ASST_ERN+4 : 1450 
| FC hCOUO#A 98 00048 MOVZBW Hite wane SADR BASST_ERN 3 1451 
FE OA 010€ F BO 0004C¢ MOVW SST_ERN+ + 1453 
000000006 Q 000000006 8F DO 00052 MOVL asée oR OC~_TRA, BASSL_ERR t 1454 
900000006 F D 9003p 3$: MOVL aBASS PROC_“TRA, COND_VAL + 1465 
05 00000000' EF E8 00064 BLBS § CC_ENABLED“OSER PT_OF- “VIEW, 4$ t 1467 
50 03 00 03 FO 00068 INSV #3, #0, 2 © CONB_VAL ~ 3: 1468 
50 DD 00070 4$: PUSHL COND V t 1470 
000000006 00 01 FB 00072 CALLS #1, CIBSSIGNAL : 
04 00079 5$: RET + 1478 


; Routine Size: 122 bytes, Routine Base: _BASSCODE + 0298 


; 621 1479 1 


mr 
| 
| 
} 


ce - — 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
May call the user's code by Signaling. 


411 
| BASSCTRLC 16-Sep-1984 00:09:2 AX-11 Bliss-32 V4.0-74 Pe 1 
beds 1e-8ep-1986 90:92:28 EBASRTL Re BASCTRLC.B32;1 oa 3) 
; ° ; ret ROUTINE CONTROL_C : NOVALUE = ! Handle a Control C interrupt 
625 ibe '++ 
? $ thi ' FUNCTIONAL DESCRIPTION: 
628 485 This is the RTL AST routine for CTRL/C's deliered to BASIC pregrens. 
(3 «629 ry It handles the Control C interrupt, and may signal it to the BASIC 
? ° rt program, depending on whether 1/0 was interrupted or not. 
6 é 489 FORMAL PARAMETERS: 
6 490 
ore 491 NONE 
635 £36 
636 49 IMPLICIT INPUTS: 
637 494 
638 495 NONE 
639 496 
640 497 IMPLICIT OUTPUTS: 
641 498 
64 499 NONE 
500 
: 1 
308 


esssssss 


WEIN AIR PPPUNINNPONYNINININONYNINININIDS 9 tt 0 0 0 0 0 0 


ooooo 


BEGIN 


GLOBAL REGISTER 
CCB = K_CCB_REG : REF BLOCK C, BYTE); 


LOCAL 
COND_VAL : BLOCK (4, BYTE), 
FMP > REF BLOCK CO,BYTE) FIELD (BSFSFCD), 
MOD_NAME_ADDR; 


BUILTIN 
FP; 
'¢ 
! search for 1/0 active; if 1/0 is active on any channel then assume 
: this AST interrupted it. 
a 0 TO LUBSK_LUN_MAX DO 
IF ( ,OTS$$V_IOINPROG C.LUN) NEQU 0 ) 
THEN | 
+ 


i 1/0 is active. Push the channel and see if this is a 
forcible (i.e., terminal) device. 


MEW OC OONOUESWUN —“OOONOUEWN —“O0ONOu 


Be Se Be Se Se Be Be Be Se Se Se Se Ge Be Se Se Ge Ge Se Se Se Ge Se Se Se Se Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Se Se Ge Se Ge Ge Se Se Sse Se ee Ge Se Fe Ge Se Geese 
o 
wn 
oO 
ek hh os ts bs ss 45 4 a 9 8 4 > 4 4 2 4 2 2 4 5 a 4 4s 9 2 > —s 9 —s —s — os 9 an as a 9 4 a 
AWA AAR IRIPORIPUPIPUNUNAY 4 we 


PUPPETS SUSI II 


w 
o 


| Saga TALC 


Be 
Be 
1540 4 
1541 4 
1 ri} 4 
1545 4 
1544 4 
1545 4 
1268 4 
1547 4 
1548 
1549 
1550 
1551 4 
1328 4 
1553 4 
1554 4 
1555 4 
1238 G 
1557 4 
1558 4 
1559 3 
1560 2 
gh 3. 
Fs 
1564 
1565 : 
1566 
1567 
1568 
1569 1 


50 000000006 00 


03 


D4 


3; Routine Size: 61 bytes, 


| 
| 
| 


END; 


q interrupted. 


AX-11 Bliss-32 V4.0-7 


N 11 
12 ae be 99: gee BASRTL.SRC BASCYRLC.83 31 


UN + LUBSK_ILUN.MIN, LUBSK_ILUN_MIN ); 
RCIBLE 


re is indeed a terminal device. yds channel and 
rn. the record level routines “ Ll notice the 
RNS. CONTROLC return status and signal. 


note that returning dismisses the AST. 
GIN 
BASSSCB_POP (); 
RETURN; 
+ 
! not a terminal device on this channel. pop the channel 
and continue looking. 
BASS$$CB_POP (); 
END; 


i An 1/0 was not jaterrupted or 1/0 to a device other than a terminal was 


Signal the CTRL condition at this time. 


BASSS$SIGNAL_CTRLC(); 


RETURN; 
END 


FE 


FFGA 


Routine Base: _BASSCODE + 031 


! end of CONTROL_C 


081C 00000 CONTROL_C: 
ORD 


cW e R2,R3,R4,R11 
54 000000006 00 9€ 0000 MOVAB Basssce’ POP, R4 
53 D4 0000 CLRL «LUN 
01 53 EF 0000B 1 EXTZV LUN, #1, OTS$S$V_IOINPROG, RO 
30 D3 00014 TSTL RO 
17 13 00016 BEQL 46 3$ 
52 FB OAS OSE 90018 MOVAB =B(LUN), R2 
50 08 CE 0001C MNE GL 
000000006 00 16 0001F JSB BASSS¢B PUSH 
AB 06 £1 00025 BBC -2(TCB), 
64 16 OO02A JSB BASSsco. PoP 
04 900 C RET 
64 1 0020 a8: JSB BASSSCB POP 
53 00000077 BF «F3 OOO2F 3S: AOBLEQ #119 1$ 
CF 00 FB 00037 CALLS #0, BASSSS1GNAL _CTRLC 
04 0003C¢ 
5 


eae 


POMIMAL Pw 
OF ONDOO 


| BARRE TALC 


B 12 
eSep-tope Viise:e8 — EBAsAre SRedaasc race 


BASRTL.SRCJBASCTRLC. 783 31 


ne 


He 137 ND ! end of module BASSCTRLC 
715 1572 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSDATA 5 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, RE CON, PIC,ALIGN(2) 
“BASSCODE 850 NOVEC.NOWRT, RD, EXE, SHR. LCL, REL. CON, PIC.ALIGN(2) 
Library Statistics 
ocuses = Syabol§ oocccece Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 21 0 581 00:01.1 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASCTRLC/OBJ=OBJ$:BASCTRLC MSRC$:BASCTRLC/UPDATE=(ENH$:BASCTRLC) 
Size: 806 code + 49 data bytes 
Run Time: 9.6 


Elapsed Time: 00:43.2 
Lines/CPU Min: 4802 
Lexemes/CPU-Min: 26578 
Memory Used: 220 pages 
Compivation Complete 
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